home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc-old.dir / Internal_93_EX4.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  1.5 KB  |  29 lines
  1. on enterFrame
  2.   global gQTcontrolRatio, gExMovie, gQuickKeyText, subtopicNumber, lineSelect
  3.   gOldFloatPrecision = the floatPrecision
  4.   set the floatPrecision to 5
  5.   vMovieLength = trackStopTime(sprite(46), 1)
  6.   vFaderWidth = the width of sprite 19 - (2 * 7)
  7.   gQTcontrolRatio = vMovieLength / float(vFaderWidth)
  8.   set the floatPrecision to gOldFloatPrecision
  9.   gQuickKeyText = field("keyCMNDs-" & subtopicNumber & "-" & lineSelect)
  10.   if line 1 of field ("markers-" & subtopicNumber & "-" & lineSelect) <> EMPTY then
  11.     repeat with n = 1 to the number of lines in field ("markers-" & subtopicNumber & "-" & lineSelect)
  12.       set the locH of sprite (19 + n) to the left of sprite 19 + integer(the width of sprite 19 * item 1 of line n of field ("markers-" & subtopicNumber & "-" & lineSelect) / sprite(46).duration)
  13.       set the castNum of sprite (19 + n) to the number of member item 2 of line n of field ("markers-" & subtopicNumber & "-" & lineSelect)
  14.     end repeat
  15.   end if
  16.   member(200).directToStage = 1
  17.   updateStage()
  18.   sprite(46).movieRate = 1
  19.   updateStage()
  20.   sprite(46).visible = 1
  21.   vCTmovieduration = trackStopTime(sprite(46), 1)
  22.   vCTmoviedurationMinutes = vCTmovieduration / 60 / 60
  23.   vCTmoviedurationSeconds = (vCTmovieduration - (vCTmoviedurationMinutes * 60 * 60)) / 60
  24.   if the number of chars in string(vCTmoviedurationSeconds) = 1 then
  25.     vCTmoviedurationSeconds = "0" & vCTmoviedurationSeconds
  26.   end if
  27.   member("movie clock total").text = vCTmoviedurationMinutes & ":" & vCTmoviedurationSeconds
  28. end
  29.